home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / srefv112.zip / DIRINFO.RXX < prev    next >
Text File  |  1996-03-25  |  754b  |  22 lines
  1. /* this is a sample of a INTERPRET keyphrase "rexx code block",
  2.  as contained in a seperate file (rather then in the INTERPRET_FILE
  3. Note we drop the filespec vars (if they have been defined, error results */
  4. tmp.1=filespec('drive',file);
  5. tmp.2=filespec('path',file);
  6. tmp.8=0;
  7. tmp.3=tmp.2||"*.*" ;
  8. tmp.3=translate(tmp.3,'\','/');
  9. drop tmp2;
  10. tmp.4=sysfiletree(tmp.3,tmp2,'F');
  11. do tmp4=1 to tmp2.0;
  12.    parse var tmp2.tmp4 putme putme tmp.10 . ;
  13.    tmp.8 = tmp.8 +tmp.10 ;
  14. end ;
  15. drop tmp3 ;
  16. tmp.5=sysfiletree(tmp.3,tmp3,'D') ;
  17. putme='<p> Current directory: '||tmp.2 ;
  18. putme=putme|| ' <br>   # files '|| tmp2.0 ;
  19. putme=putme||' <br>  bytes in files= '|| tmp.8 ;
  20. interpret.results=putme||' <br>  # subdirectories = ' ||tmp3.0|| '<p> ' ;
  21.  
  22.